home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / assets / game.dir / 00006_Script_rear class < prev    next >
Text File  |  1997-08-08  |  1KB  |  66 lines
  1. -- rear class
  2. -- --------------------------------------------------
  3.  
  4. property xtraname
  5. property folderpath
  6. property obj
  7. property disposeflag
  8.  
  9. global gsound
  10.  
  11. -- ==================================================
  12. -- new method
  13. -- --------------------------------------------------
  14. on new me, props
  15.   
  16.   minit me, props
  17.   return me
  18.   
  19. end mnew 
  20.  
  21. -- ==================================================
  22. -- minit method
  23. -- --------------------------------------------------
  24. on minit 
  25.   
  26.   put "in minit rear"
  27.   
  28.   if the machinetype = 256 then
  29.     return
  30.   else 
  31.     set platformseperator = ":"
  32.     set xtraname = "Rear.XOb"
  33.   end if
  34.   
  35.   set folderpath = "xtra" & platformseperator
  36.   
  37.   openxlib the moviepath & folderpath & xtraname
  38.   
  39.   put RearWindow( mNew, "M" ) into obj
  40.   obj( mIndexColorToWindow, 256 )
  41.   
  42.   set disposeflag = false
  43.   
  44.   put "in minit rear"
  45.   
  46. end minit
  47.  
  48. -- ==================================================
  49. -- mdispose rear method
  50. -- --------------------------------------------------
  51. on mdispose me
  52.   
  53. --  put "in mdispose rear"
  54.   
  55.   if not ( disposeflag ) and not ( the machinetype = 256 ) then
  56.     set disposeflag = true
  57.     obj ( mdispose )
  58.     closexlib the moviepath & folderpath & xtraname
  59.   end if
  60.   
  61. --  put "out mdispose rear"
  62.   
  63. end mdispose
  64.  
  65.  
  66.